Top 10k strings from Viewpoint (1982)(ACS Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /

Back to the directory listing

   3 ,ic)*scl,g(2
   3 ,ic)*scl,c(2
   1 wu=w*u*c1:
   1 vw=v*w*c1:
   1 viewpoint 
   1 uv=u*v*c1:
   1 t33=w*w*c1+c2:
   1 t32=vw+u*s:
   1 t32=s1*c2:
   1 t31=wu-v*s
   1 t23=vw-u*s:
   1 t23=c1*s2*s3-s1*c3:
   1 t22=v*v*c1+c2:
   1 t22=c1*c3+s1*s2*s3:
   1 t21=uv+w*s:
   1 t21=c2*s3:
   1 t13=wu+v*s:
   1 t13=s1*s3+c1*s2*c3:
   1 t12=uv-w*s:
   1 t12=s1*s2*c3-c1*s3:
   1 t11=u*u*c1+c2:
   1 t11=c2*c3:
   1 scl*ymin<39
   1 scl*ymax>136
   1 scl*xmin<55
   1 scl*xmax>200
   1 scl*(ymax-ymin)>97
   1 scl*(xmax-xmin)>145
   1 letter    
   1 gx*scl,gy*scl
   1 g(j,i)=c(j,i)
   1 cube      
   1 c(i,j)=g(i,j):
   1 c(i,j)=g(i,j)
   1 alanine   
   1 Very early VU-3D predecessor.
   1 RPerfect TZX sampled from the original cassette by +Church of the Latter-Day Speccy
   1 ;"spatial co-ordinates"
   1 ;"point ";n-1
   1 ;"co-ordinates etc.":
   1 ;"____________________"
   1 ;"Imagine x,y,z axes intersecting at point ";ic-1
   1 ;"7 to load new details":
   1 ;"6 to save details":
   1 ;"5 for view of starting            position from x,y plane":
   1 ;"4 for view from one point         to another":
   1 ;"3 for rotation about a            line between two points":
   1 ;"2 for rotation about a            point":
   1 ;"1 to input new";
   1 3D Graphics Utility
   1 /scl-ymin):
   1 /scl-xmin):
   1 /(ymax-ymin)
   1 /(xmax-xmin)
   1 ,in)*scl,c(2
   1 ,i)=t31*cx+t32*cy+t33*cz+zo
   1 ,i)=t21*cx+t22*cy+t23*cz+yo:
   1 ,i)=t11*cx+t12*cy+t13*cz+xo:
   1 ,i)-ymax+(136
   1 ,i)-xmax+(200
   1 ,i)*scl,g(2
   1 ,i)*scl,c(2
   1 ,c(k,i))-g(2
   1 ,c(k,i))-g(1
   1 ,c(k,i))-c(2
   1 ,c(k,i))-c(1
   1 ,-y*scl/10
   1 (dx*dx+dy*dy+dz*dz)
   1 "point ";n;" connects to? ";
   1 "What is the name of this object?";
   1 "View from point ";in'"to point ";if:
   1 "The image has moved off or out  of the screen - a correction is being applied."
   1 "Rotation about which point?  ";ic:
   1 "Rotation about a line between   which two points? ";in;" and ";if:
   1 "Rotate z axis                   by how many degrees?  ";zd
   1 "Rotate y axis                   by how many degrees?  ";yd
   1 "Rotate x axis                   by how many degrees?  ";xd
   1 "Object is being re-scaled to fiton the screen.":
   1 "Make this the new starting      position?   ";
   1 "Is this the right point? ";
   1 "Is this the right line? ";
   1 "Is this the right direction? ";
   1 "How many points?  ";nu
   1 "Hard copy?  "
   1 "Enter the name of the object andthen start the tape :            ";
   1 "Co-ordinates being adjusted to asuitable scale - please wait.":
   1 "Choose option  ";ipt:
   1 "Another option?  ";
   1 "Amount of rotation in degrees?  ";od